www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminTemplates\D_moban_reg_and_unreg.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <htmL> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <script src="../../inc/admin.js" type="text/javascript"></script> <% if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE1 { color: #3300FF; font-weight: bold; } --> </style> <div id="l_newm" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px;"> <form action="D_chk_reg_moban.asp" method="post"> <table width=732 border="1" cellpadding="0" cellspacing="0" bordercolor="#D9D9D9" bgcolor="#EBEBEB" style="border: 1px dashed #999999;"> <tr> <td> <span class="STYLE1">把/templates/目录下已有的模板文件夹注册到系统中:</span><br> 请输入模板文件夹路径:/templates/<input type="text" name="mbpath" size="28"> <input type="submit" value="注册此文件夹(安装模板)"> </td> </tr> </table> </form> </div> <br><br> <div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px;"> <script language="javascript"> function delmb(id){ if (confirm("确认注销它?")==1){ self.location="D_del_moban.asp?id="+id; } } function cmb(id){ if (confirm("切换当前模板时需要先执行 刷新与生成所有前台页面 这个操作,而 刷新与生成所有前台页面 需要花费很长时间,请耐心等待,\n且绝对不可以在切换过程中 强行中断,\n\n(如果执行本操作时出现 很耗服务器资源甚至服务器暂时无反应了或提示Service Unavailable(特别是用虚拟主机而不是用服务器的情况),此时,推荐您在本地自己的电脑上用本地的IIS来运行本系统,在本地电脑上进行 切换当前模板 的操作,编译与生成好一个 整站系统后再上传到服务器上 浏览)\n\n\n,确定进行 切换模板 操作吗?")==1){ self.location="../adminKernel/D_chage_skin.asp?id="+id; } } </script> <table width=732 border="1" cellpadding="0" cellspacing="0" bordercolor="#D9D9D9" bgcolor="#EBEBEB" style="border: 1px dashed #999999;"> <tr> <td width="28" height="30" align="center"> <strong>id</strong></td> <td width="59" height="30" align="center"> <strong>模板名称</strong></td> <td width="105" height="30" align="center"> <strong>模板文件夹路径</strong></td> <td width="61" height="30" align="center"> <strong>模板状态</strong></td> <td width="73" height="30" align="center"> <strong>模板备注</strong></td> <td width="99" height="30" align="center"> <strong>是否是当前模板</strong></td> <td width="96" height="30" align="center"> <strong>是否是系统模板</strong></td> <td width="193" height="30" align="center"> <strong>操作</strong></td> <tr> <% CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if sql="select * from [ND_templates_folder_reg] order by id desc" maxperpage=10 '获取自身文件名 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx&"?id="&request("id") set Rs=server.CreateObject("adodb.recordset") Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to maxperpage if rs.eof then exit for %> <tr> <td height="30" align="center"> <%=rs("id")%> </td> <td height="30" align="center" style="word-break:break-all"> <%=rs("templates_name")%> </td> <td height="30" align="center" style="word-break:break-all"> /templates/<%=rs("templates_folder_path_name")%> </td> <td height="30" align="center" style="word-break:break-all"> <% set filea=new Cls_FSO set fileb=new DosAsp if filea.ReportFolderStatus(server.mappath("../../templates/"&rs("templates_folder_path_name")))=1 then %> <font color="#0000ff">正常 </font> <% else %> <font color="#FF0000">文件夹不存在</font> <%end if%> </td> <td height="30" align="center" style="word-break:break-all"> <%=rs("beizhu")%> </td> <td height="30" align="center"> <% if rs("is_default_template")=true then response.write "<font color=#ff0000>是</font>"%> <% if rs("is_default_template")=false then response.write "否"%> </td> <td height="30" align="center"> <% if rs("is_sys_template")=true then response.write "是"%> <% if rs("is_sys_template")=false then response.write "否"%> </td> <td height="30" align="center"> <a href=# onclick="cmb('<%=rs("id")%>');">设为当前模板</a> <a href=# onclick="delmb('<%=rs("id")%>');">注销此模板</a> </td> <tr> <% rs.movenext next %> <% else %> <tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr> <td colspan="9" align="center" height="27" ><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> <tr> <td colspan="9" align="center"></td> </tr> </table> </div> <script language=javascript> AJAXfade(1,'l_do'); AJAXfade(1,'l_newm'); </script> <% AJAXcloseLoader() %> </html>